! name: ajt20
! type: ArchiCAD Door File
! ***** 3D script *****
mat1 = c
mat2 = d


prism_   10, 0.045, 
    -a/2, 0, 15,
    0, 0, 15,
    0, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.25, 15,
    -0.12, 0.25, 15,
    -0.12, b-0.12, 15,
    -a/2+0.12, b-0.12, 15,
    -a/2+0.12, 0.25, -1

addz -0.005

kx = -a/2+0.135
ky = 0.265

dy = (b-0.135-0.265-0.015*2) / 3
dx = a/2-0.135*2

for iy = 1 to 3 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

    ky = ky+dy+0.015
        

next iy

prism_ 5+nsp/3, 0.055,
    -a/2+0.12, 0.25, 15,
    -0.12, 0.25, 15,
    -0.12, b-0.12, 15,
    -a/2+0.12, b-0.12, 15,
    -a/2+0.12, 0.25, -1,

    use (nsp)

del 1
material mat1
addz 0.019

for ii = 1 to 3 step 1

    prism_ 5, 0.007,
        get (15)

next ii


del 1

END

! ***** 2D script *****


END

! ***** Property script *****


END

